home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / consol.act < prev    next >
Text File  |  1995-04-22  |  1KB  |  60 lines
  1. ;************************************
  2. ;*                                  *
  3. ;*(C)Copyright 1986 by Paul B. Loux *
  4. ;*                                  *
  5. ;* These routines are in the public *
  6. ;* domain,  and  are not to be sold *
  7. ;* for a profit. They may be freely *
  8. ;* distributed, provided  that this *
  9. ;* header remains in place. Use and *
  10. ;* enjoy! PBL, CIS 72337,2073.      *
  11. ;*                                  *
  12. ;************************************
  13. ;*                                  *
  14. ;*  File CONSOL.LIB                 *
  15. ;*                                  *
  16. ;*  Description: three functions    *
  17. ;*    are provided which test if    *
  18. ;*    the user is pressing one of   *
  19. ;*    the START, SELECT or OPTION   *
  20. ;*    console buttons.  Returns a   *
  21. ;*    one if pressed, zero if not.  *
  22. ;*                                  *
  23. ;************************************
  24.  
  25. MODULE
  26.  
  27. BYTE CONSOL=$D01F
  28.  
  29. BYTE FUNC Start()
  30.   IF CONSOL&1 THEN RETURN(0) FI
  31. RETURN(1)
  32.  
  33. BYTE FUNC Select()
  34.   IF CONSOL&2 THEN RETURN(0) FI
  35. RETURN(1)
  36.  
  37. BYTE FUNC Option()
  38.   IF CONSOL&4 THEN RETURN(0) FI
  39. RETURN(1)
  40.  
  41. ;************************************
  42. ;
  43. ; Example of usage: 
  44.  
  45. PROC Test6()
  46.  
  47. BYTE value
  48.  
  49. DO
  50.  
  51. IF Start() THEN PRINTE("Start") FI
  52. IF Option() THEN PRINTE("Option") FI
  53. IF Select() THEN PRINTE("Select") FI
  54.  
  55. OD
  56.  
  57. RETURN
  58.  
  59.  
  60.